CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swaga_c.zip/COLOR.SWG/0011_Hi Intensity Colors #5.pas

Pascal/Delphi Source File | 1993-05-28 | 531b | 27 lines

{
> How would I implement the high intensity colors For the TextBACKGROUND
> Procedure in the Crt Unit?
}

Procedure LightEGAVGA(TurnOn : Boolean);
Var Regs : Registers;
begin
  Regs.AH := $10;
  Regs.AL := $03;
  Regs.BL := Byte(TurnOn);
  Int($10,Regs);
end;

Procedure LightHGC(TurnOn : Boolean);
begin
  if TurnOn then Port[$3b8] := $29
  else           Port[$3b8] := $09;
end;

Procedure LightCGA(TurnOn : Boolean);
begin
  if TurnOn then Port[$3d8] := $29
  else           Port[$3d8] := $09;
end;